N 
— 
=) 


| vi> 


J 10 


**F ILE**1D**SYSDERLMB 


RR LLLLLLLLLL 
RR LLLLLLLLLL 


a 
Sorts tsssstysH 
aco 
aecanr 
cc ca ca 
ca ca ca 
ca ecacae 
aa aaca 
aca ca 
fo ale 4 ca 
aaarancaacacaacaaca 
@aeancaacacaacaacaca 
uu usus 
ew ES) tas La 
wu wou uu 
wus wud uu 
wou were) wus 
wud uu wud 
[veavy} wud wud 
wus Wd) wu 
[ve VU TVSTVU TVurvelvulvelve lvelVelvelverve) 
A A ddd ad 
An000G000G 
lavovovovovoyoyoyalo) 
aa aa 
aan aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 


>> 
>> 
an 
nn 
nw 
nn 
nn 
nn 
nw 
nn 


LLLLLLLLLL 
LLLLLLLLLL 


contents 


7 


DE 
SY 


CL 
SD 


A 
E 


K 1 
= DECLARE ERROR LOG MAILBOX YSSTEM servi 16-SEP-1984 01:59:29 VAX/VMS Macro V04-00 


RATIONS 
RLMBX = DECLARE ERROR LOG MAILBOX 


Page 


0 


L 10 
sean sec ERO ve mauoon ween Fut Meee AAS HOTEL ACERates | "OY dl 


TITLE SYSDERLM® = DECLARE ERROR LOG MAILBOX YSSTEM SER 
“TITLE $VSDERLMG - DECLARE ERROR LOG MAILBOX YSSTEM SERVICE 


MPARARAARDAAAAAAAAAALALA SALES LALLA EAS ERSTE SEE E ETERS EES REE ESTEE ET SEP 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


4 
5 
s* * 
ei - 
7* « 
° i* ALL RIGHTS RESERVED. ® 
Py * 
11 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
12 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AYD WITH THE ®* 
13 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
00 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 15 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S WHEREBY * 
a8 1 j* TRANSFERRED. : 
00 18 [* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
900 19 :* AND SHOULD NOT Be CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
9000 0 :* CORPORATION. : 
000 ; i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
000 4 ie & 
0000 5 ie ‘ 
44 § FRERAAAAA AEE AAAAAAEAAAAAAAAAAAATAAAAAEe 
$008 8° 
0000 9 ;++ 
at 0 ; FACILITY: EXECUTIVE, SYSTEM SERVICES 
000 : : ABSTRACT: 
000 : SYSDERLMB IMPLEMENTS THE DECLARE ERROR LOG MAILBOX SYSTEM SERVICE 
00 4: WHICH ENABLES A DIAGNOSTIC OR OTHER PRIVILEGED PROGRAM TO REQUEST 
99 3 ; THAT A COPY OF ALL ERROR LOG RECORDS BE WRITTEN A SPECIFIED MAILBOX 
000 7: ; 
000 8; 
000 9 > ENVIRONMENT: 
00 40: KERNEL MODE 
00 41 ; AUTHOR: R. I. HUSTVEDT , CREATION DATE: 19-SEP-77 
00 ‘s : MODIFIED BY: 
45: , + VERSION 
46 ; 01 - 
: i 
0 
4 
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SIPLOEF ; DEFINE IPL VALUES 

SPCBDEF ; DEFINE PCB OFFSETS 

SPRDEF : DEFINE PROCESSOR REGISTERS 

SPRVDEF ; DEFINE PRIVILEGE BIT NUMBERS 
0 SSSDEF ; DEFINE STATUS CODE VALUES 
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Boo0004 : 
00000004 


: MACROS: 


NIT=0 
1D=4 


XUNT=4 


a — 


OWN STORAGE: 


SNIP AAA AAAAOOU 
WR OOONOULSWin—O0Oo 


EQUATED SYMBOLS: 
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SYS.SR c58 SDER LMB.MAR;1 


; UNIT FIELD OF ERROR LOG MAILBOX DESCRIPTOR 
; PROCESS ID FIELD OF ERROR LOG MAILBOX DESC 


; MAILBOX UNIT ARGUMENT LIST OFFSET 
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X = DECLARE ERROR LOG MAILBOX “SEP=1984 SYS.SRCISYSDERLMB.MAR; 1 (1) 
«SBTTL SYSDERLMBX = DECLARE ERROR LOG MAILBOX 
FUNCTIONAL DESCRIPTION: 
ESDERLMBX SETS THE SRRORL OS MAILBOX DESCRIPTOR TO POINT T 
SPECIFIED MAILBOX UNIT. ONLY ONE PROCESS MAY ASSIGN A MAILBOX UNIT 
TO THE ERROR LOG AT ONE TIME. iF THE ERROR LOG MAILBOX IS ALREADY 
ASSIGNED TO ANOTHER PROCESS, THE ERROR STATUS CODE SS$_DEVA 
IS RETURNED. os A PROCESS IS FINISHED WITH THE ERROR LOG MAILSOX 
IT SHOULD ASSIGN A UNIT NUMBER OF O(ZERO). EXESRUNDWN WILL DO THIS 
IN CASE THE IMAGE ANEGLECTS TO EXIT CORRECTLY. 


; CALLING 1¢ ame 
CAL éLIsT, EXESDERLMBX 


3D Po aAGCZz Woso- 


Ze zorn 
cr 
2z@ 


; INPUT PARAMETE 
MBXU 
rae ts 


: LBOX UNIT NUM 
; OF 
: IMPLICIT INPUTS: 


BER 
D CURENT PROCESS 


PCB AND PROCESS HEADER OF CURRENT PROCESS 


RO 
D 
ie us 
He 
1 
o § 
¢ 
4 
g 
8 
0 89 
0 90 
0 91 
0 3 
0 9 
000098 ; 
0000 96 ; OUTPUT PARAMETERS: 
0000 97 ; RO = COMPLETION STATUS CODE 
0000 98 ; 
0000 99 ; tall OUTPUTS: 
0000 100 ; ONE 
0000 101 
0000 We 3 COMPLETION CODES: 
0000 10 SSS_NORMAL = NORMAL 3h ek COMPLETION 
0000 104 SS$S_NOPRIV. = PROCESS DOES NOT HAVE DIAGNOSTIC PRIVILEGE 
0000 105 SS$_ DEVALLOC - foots LOG MAILBOX UNIT ALREADY DECLARED BY ANOTHER 
44 106 OCESS. 
000 107 ; 
0000 108 ; SIDE EFFECTS: 
44 109 ; NONE 
000 110; 
4 111 ;-- 
000 We 
000 11 
000 114 EXESDERLMB:: : 
003¢ 4 132 «WORD “M<R2,R3,R4,R5> ; SAVE R2-R5 
50 24 3¢ 000 119 OVZWL 4444 ance ey RO 3; ASSUME NO PRIVILEGE 
118 IFNPRIV Dl AGRO EXiT ; EXIT WITH ERROR STA ae IF NO PRIVILEGE 
50 0840 8F 3C 11 OVZWL #SS DEVAL CO RO : ASSUME ‘“‘DEVICE*’ ALLOCAT 
55 OO00'CF 9E 001 120 OVAB  W*EXE$GQ ERL MBX, R5 ; SET ADDRESS OF ERRORLOG ott DESCRIPTOR 
01 121 DSBINT FIPLS Hy YRC :; INHIBIT SYSTEM EVENT REPORTING 
65 85 18 «(1 § TSTW UNITCR5) ; TEST FOR ALREADY ASSIGNED 
07 «+13 1D 1 BEQL 10$ ; NOT ASSIGNED 
04 AS 60 AG ODI 1F «6124 CMPL PCBSL_PID(R4) ,PID(RS) 3; CHECK FOR CURRENT PROCESS 
11 7 ' 4 125 BNEQ EXITER 3 NO, EXIT WITH DEVALLOC ERROR 
04 A5 60 A4 OD S*.-% § 10$ MOVL PCBSL_PID(R4) ,PID(RS) 3 SET PID OF OWNER 
65 O4A 89 02B 1 MOVW BRXUNTCAP) /UNIT(RS) ; SET ERRORLOG MAILBOX UNIT NUMBER 
1 F 1 8 BNEQ 208 ; BR_IF ACTUAL UNIT 
04 A 04 1 1 CLRL PID(RS) 3; ZAP PID OF MAILBOX OWNER 
50 01 00 4 130 20$: MOVL #SS$_NORMAL ,RO ; SET NORMAL COMPLETION STATUS 
7 131 EXITEN: ENBINT ; ENABLE SYSTEM EVENT REPORTING 
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ve 606 SYSDERLMBX = DECLARE ERROR LOG MAILBOX 8: S21 $8¢ 84 33: 93 Sys. SRS YSDERLMB. MAR; 1 7 (1) 
04 3 & iP EXIT: RET ; RETURN 
2. 29 
B 134 
B 135 END 


SYSDERLMB 
Symbol table 


EXESDERLMB 
+i ae ERLMBX 


- DECLARE 


Rekeeeee 


00000000 =" : 


AR 1 
EXITEN 7R 1 
IPL$_ SYNCH = 8 
MBXUNT = 00 4 
PCBSL PID = 000 ° 
PCBSQ- _PRIV = 000 4 
eae = 000 8 04 
PRE = Op 1 
PRySY BIAGNOSE = 00000 
$S$_DEVALLOC 88 $ 4 
SSS$_NOPRIV = $7 
SS$_NORMAL = 00000001 
UNIT = 00000000 
toe 
H P 
PSECT name Allocation 
. ABS 00000000 <( 0.) 
BLANK 0000003B ( 59.) 
s$ 00000000 < 0.) 
$occcen 
! Perf 
ewe mes 
Phase Page faults CPU Time 
Initialization $e 00:00:00.04 
Command processing 105 00:00:00.55 
Pass 248 00:00:06.44 
Symbol table sort 0 00:00:01.08 
Pass 2 “¢ es So 
Symbol table output 0:00:00.04 
Psect synopsis output 3 888808" 8 
Cross-reference output 88:5 :00.0 
Assembler run totals 431 00:00:09.2 


nto set Limit was 1050 pages. 
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NOPIC USR 
NOPIC USR 
NOPIC USR 


wre eeewooeeomoons wooo + 


Lapsed Time 


Ooooooeoooo 
eee 

MmoooS oes 
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O9909090900 


4 bytes (69 pages) of virtual memory were used to buffer_the intermediate 


are were +9 pages of symbol table space allocated t 


source lines were read in Pass 1, 


producing 12 


hold 714 non-local and 
object records in Pass 2 


5 sour of poe memory were used to define 14 macros. 


Bay 
RLMB.MAR; 1 


CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


ye 
local symbols. 
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SEp=19be 05:52:88 


pee meowos erase aensecmonanaeae 


! Macro Library statistics ! 


¢eoeocecececa came etenaar ean e + 


Macro Library name Macros defined 


SS 2280UACE: beYs- -OBJJLIB.MLB;1 : 5 
$255$SDUA SYSLIBISTARLET. MLB; 2 6 
Trace (all Libraries) 11 
815 GETS were required to define 11 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:SYSDERLMB/OBJ=0BJ$:SYSDERLMB MSRC$:SYSDERLMB/UPDATE=(ENHS: SYSDERLMB) +EXECMLS$/LIB 


cro v04-00 
SYSDERLMA. MAR; 1 


AX/VMS 
SYS.SR 58 


L EQUIPMENT CORPORATION 
ENTIAL .AND PROPRIETARY 


AH-BT13A-SE 


G 
VAX/VMS_V4.0 N 


DIGIT 
CONFI 


1383 


A 
: 


